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IBSMOVCS - Execute MOVCS instructio 16-SEP-1984 1 AX/VMS 4- 
-001 pero ge grSE en 1o8d Ti ioos Le toNTe caeseibecves mans? 2% iy 
-TITL ; Lyesnoves - Execute MOVCS instruction 
-IDENT /1-001 ; File: LIBMOVC5.MAR Edit: $8L1001 


MAAAARAAAAAAAALALALEALALALELELELE SELLERS EERE EERE REE RE EE ERE REET S EEE RES 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


w 
°a ® 
*® ® 
ef ® 
:® ® 
*® ® 
it THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
# ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ® 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
js COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:# TRANSFERRED. : 
:® ® 
:® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
:* CORPORATION. : 
*® a 
*?® ® 
*® ® 
'* ® 
*® ® 
® ® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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; LARRRRARARAAASALAASASALAASALALEASSELESESAS EASES ESSER RRR E RRR ESE EERE E AREER 
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FACILITY: General Utility Library 
ABSTRACT: 


This module contains LIBSMOVCS, which makes the VAX MOVCS instruction 
available as a callable procedure. 


ENVIRONMENT: Runs at any access mode, AST Reentrant 
AUTHOR: Steven B. Lionel, CREATION DATE: 28-October-1981 
MODIFIED BY: 

1-001 - Original. SBL 28-October-1981 
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~SBTTL DECLARATIONS 
LIBRARY MACRO CALLS: 

NONE 
EXTERNAL DECLARATIONS: 

Ph 5 GBL 


MACROS: 
NONE 

EQUATED SYMBOLS: 
NONE 

OWN STORAGE: 
NONE 

PSECT DECLARATIONS: 


AX/VMS Macro Yosn00 
LIBRTL.SRCILIBMOVC5.MAR;1 


71986 99:08:18 


; Force all external symbols to be declared 


-PSECT _LIBSCODE PIC, USR, CON, REL, LCL, SHR, 
EXE, RD, NOWRT, LONG 
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ae -SBTTL LIBSMOVCS = Execute MOVCS instruction 
: FUNCTIONAL DESCRIPTION: 


LIBSMOVCS makes the VAX MOVCS instruction available as 
a callable procedure. 


The source is moved to the destination. If the destination is 
ee than the source, the highest address syees O7ane 
e 


So Exe 
i 
78 ; 
8 
0; 
0 >; 
00 : ; 
4 4 ; destination are replaced by the fill argument. 
0 $3 destination is shorter than the source, the highest 
4 § g addressed bytes of the source are not moved. The operation is 
5 such that overlap of the source and destination does not 
$3 3 ; affect the result. 
0990 a : For more information, see the VAX-11 Architecture Handbook. 
900 % ; CALLING SEQUENCE: 
0000 9%; status.wlc.v = LIBSMOVCS (src_len.rwu.r, source.rz.r, fill.rb.r, 
0000 95 ; dst_len.rwu.r, dest.wz.r) 
0000 96 ; 
44 4 3; FORMAL PARAMETERS: 
00000004 0000 99 ° src_len = 4 ; The Length of source in bytes. Passed 
444 199 ; by reference. The maximum length is 65535. 
00000008 4 138 source = 8 ; The source to move from. Passed by reference. 
0000000C 44 193 fill = 12 ; The fill character. Passed by reference. 
00000010 0000 196 dst_len = 16 ; The Length of dest in bytes. Passed by 
4 + ; reference. The maximum length is 65535. 
00000014 0000 109 dest = 20 ; The destination to move to. Passed by 
0000 110 3; reference. 
0000 111 
44 11 3 
00 113 ; IMPLICIT INPUTS: 
000 114; 
0000 115; NONE 
0000 116 3 
0000 i 3 IMPLICIT OUTPUTS: 
$5 118 : NONE 
0 5 120 ; 
. 8 } 1 ; COMPLETION STATUS: 
454 : : SS$_NORMAL Procedure successfully completed. 
$00 125 : SIDE EFFECTS: 
000 1 $ ; 
00 127 ; NONE 
3 1 3 : 
003C 6 131 -ENTRY LIBSMOVCS, “M<R2,R3,R4,R5> ; Entry point 
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10 BC OC BC adst_l 
14 BC 


adest ( 


#1, RO ; SS$_NORMAL 
+ return to caller 


3; End of module LIBSMOVCS 


50.0 


——) Sb 4 a 


SF FAWN 


MO OONOUS wr 


C11 


LIBSMOVCS - Execute MOVCS instructio i 4 00:06:1 AX/V P 
Symbol table ee Priige te: 71982 90: 88: 18 LaRTL L.S so beoves. MAR; 1 ee 
DEST = 00 14 
Ost LEN : 099 010 
LIBSMOVCS $09 009 RG 01 
SOURCE = 0000000 
SRC_LEN = 00000004 

power eer ners eoan + 

: ;_Psect synopsis / 
PSECT name Allocation PSECT No. Attributes 
. ABS, 00000000 < g.) 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_LIBSCODE 00000011 «¢ 1 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 

Suacteuseesoueucssnceesens$ 
H ; Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 34 08: 80:08 - 0% OF 00 00-28 
Command processing 125 00:00:00.31 00:00:03.43 
Pass 66 00:00:00.23 00:00:04.16 
pyabe) table sort 0 00:00:00.00 00:00:00.00 
s2 40 00:00:00.19 00:00:00.81 

Suabot table output 3 00:00:00.01 Ses Se SD 
Psect synopsis output 00:00:00.02 00:00:00.39 
Cross-reference output ! 00:00:00.00 Ee Bos! 
Assembler run totals 27 00:00:00.80 00:00:09.38 


The working set Limit was 900 pages. 

1379 bytes (3 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 6 non-local and 0 Local symbols. 
142 source Lines were read in Pass 1, producing 10 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 


woeewweeeeeeeeeeeeooeoeeeon} 


Macro Library name Macros defined 
“$255SDUA2B:(SYSLIBISTARLET.MLBs2 (ititit:*~CS*~*~S~™S 0 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:LIBMOVC5/0BJ=OBJ$:LIBMOVC5 MSRC$:LIBMOVC5/UPDATE=(ENH$:LIBMOVCS) 
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